/* GUI CONVERTED from rsrp08a.p (converter v1.76) Wed Dec 12 05:26:49 2001 */
/* rsrp08a.p - Supplier Schedules - Receipt History Report Subprogram         */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.5 $                                                           */
/*V8:ConvertMode=Report                                                       */
/* REVISION: 7.3    LAST MODIFIED: 10/06/92        BY: WUG *G462*             */
/* REVISION: 7.3    LAST MODIFIED: 10/05/93        BY: WUG *GG16*             */
/* REVISION: 7.3    LAST MODIFIED: 05/23/95        BY: VRN *G0NF*             */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00        BY: *N0KP* Mark Brown      */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.5 $    BY: Jean Miller           DATE: 12/10/01  ECO: *P03H*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

{rsrp08.i
   "
     for each pod_det no-lock
     where pod_part >= part_from and pod_part <= part_to
     and pod_site >= shipto_from and pod_site <= shipto_to
     and pod_nbr >= po_from and pod_nbr <= po_to
     use-index pod_part,
     each po_mstr no-lock
     where po_nbr = pod_nbr
     and po_vend >= supplier_from and po_vend <= supplier_to
     and po_buyer >= buyer_from and po_buyer <= buyer_to
     and po_sched
     use-index po_nbr,
     "
   "break by pod_site by po_vend by pod_part by pod_nbr by tr_trnbr"
   pod_nbr}
